home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / patterns.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  377 b   |  19 lines
  1. REM Your second HiSoft BASIC program
  2. REM as described on page 11 of the manual
  3.  
  4. Patterns:
  5. CLS
  6. RANDOMIZE TIMER
  7.  
  8. REM Note that the manual says cx=32, erroneously
  9.  
  10. cx=320 : cy=100 : pi=3.14159265#
  11. xs=cx/4+cx*RND/2 : ys=cy/4+cy*RND/2
  12. COLOR INT(3*RND+1)
  13. FOR k=0 TO 500 STEP 4*pi*RND+1
  14.   x=cx+xs*COS(k) : y=cy+ys*SIN(k)
  15.   IF k=0 THEN PSET(x,y) ELSE LINE -(x,y)
  16. NEXT k
  17. GOTO Patterns
  18.  
  19.